(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     22880,        794]
NotebookOptionsPosition[     18113,        627]
NotebookOutlinePosition[     18740,        651]
CellTagsIndexPosition[     18661,        646]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000068305409527`*^9},
 CellLabel->"Paclet Name",
 CellID->178896808],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->434562148],

Cell["TransferMatrixFormalism/ref/PhaseMv", "Categorization",
 CellChangeTimes->{3.6000068312897544`*^9},
 CellLabel->"URI",
 CellID->67324167]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["transfer matrix", "Keywords",
 CellChangeTimes->{{3.5980149143853774`*^9, 3.598014917380583*^9}},
 CellID->1164421360],

Cell["phase matrix", "Keywords",
 CellChangeTimes->{{3.5980149143853774`*^9, 3.598014920235388*^9}},
 CellID->40730729],

Cell["layer phase", "Keywords",
 CellChangeTimes->{{3.5980149143853774`*^9, 3.5980149219045906`*^9}},
 CellID->97249225],

Cell["Eq. 12", "Keywords",
 CellChangeTimes->{{3.5980149143853774`*^9, 3.5980149238857937`*^9}},
 CellID->723475087]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["PhaseMv", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["PhaseMv",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"], "[", 
   RowBox[{
    StyleBox["\[Omega]", "TR"], ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["v", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["v", "TI"]], ",", 
    SubscriptBox[
     StyleBox["d", "TI"], 
     StyleBox["v", "TI"]]}], "]"}]], "InlineFormula"],
 " \[LineSeparator]calculates phase matrix in layer v for field with vacuum \
frequency \[Omega], refraction angle in the layer ",
 Cell[BoxData[
  SubscriptBox["\[Theta]", "v"]]],
 ", layer refractive index ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 " and layer thickness ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["d", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 ". ",
 ButtonBox["Eq. 12",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/PhaseMv#148884605"],
 "."
}], "Usage",
 CellChangeTimes->{{3.598013011997035*^9, 3.598013050435502*^9}, 
   3.59801317392832*^9, {3.598013628329918*^9, 3.5980136760046015`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["PhaseMv",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"], "[", 
   RowBox[{
    StyleBox["\[Omega]", "TR"], ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["v", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["v", "TI"]], ",", 
    SubscriptBox[
     StyleBox["d", "TI"], 
     StyleBox["v", "TI"]]}], "]"}]], "InlineFormula"],
 " is one of two characteristic matrices central to the transfer matrix \
formalism, the other is the matrix of refraction ",
 ButtonBox["RefractionMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"],
 "."
}], "Notes",
 CellChangeTimes->{{3.5980132142543907`*^9, 3.598013265704281*^9}, {
  3.5980136839138155`*^9, 3.598013778591382*^9}, {3.5980148864769287`*^9, 
  3.598014886788929*^9}},
 CellID->1067943069],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], "InlineFormula",
  ShowStringCharacters->False],
 " is given by ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalPhi]", "v"], "=", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"exp", "(", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          SubscriptBox["\[Phi]", "v"]}], ")"}], "0"},
       {"0", 
        RowBox[{"exp", "(", 
         RowBox[{"\[ImaginaryI]", " ", 
          SubscriptBox["\[Phi]", "v"]}], ")"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], 
   TraditionalForm]], "InlineMath"],
 " with ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Phi]", "v"], "=", 
    RowBox[{
     TemplateBox[{RowBox[{
         SubscriptBox[
          StyleBox["k", FontWeight -> "Bold"], "v"], "\[CenterDot]", 
         SubscriptBox["\[CapitalDelta]r", "v"]}]},
      "Abs"], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", "\[Pi]", " ", 
         SubscriptBox["d", "v"], " ", 
         SubscriptBox["n", "v"]}], ")"}], " ", 
       RowBox[{"cos", "(", 
        SubscriptBox["\[Theta]", "v"], ")"}]}], "\[Lambda]"]}]}], 
   TraditionalForm]], "InlineMath"],
 "."
}], "Notes",
 CellChangeTimes->{{3.5980137828969893`*^9, 3.5980138018510227`*^9}, {
  3.598014085525921*^9, 3.5980141420302205`*^9}, {3.5980141794234858`*^9, 
  3.5980141794234858`*^9}, {3.5980142494696093`*^9, 3.59801425567842*^9}},
 CellID->499000569],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], "InlineFormula",
  ShowStringCharacters->False],
 " relates fields adjacent to the bottom side of interface ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " to those adjacent to the top side of interface ",
 Cell[BoxData[
  RowBox[{
   StyleBox["v", "TI"], "+", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 " (the field amplitudes at the interfaces of layer ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 "): ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SubsuperscriptBox["\[CapitalEpsilon]", "v", 
         RowBox[{"-", "'"}]]},
       {
        SubsuperscriptBox["\[CapitalEpsilon]", "v", 
         RowBox[{"+", "'"}]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "=", 
    RowBox[{
     SubscriptBox["\[CapitalPhi]", "v"], "(", "\[NoBreak]", GridBox[{
       {
        SubsuperscriptBox["\[CapitalEpsilon]", 
         RowBox[{"v", "+", "1"}], "-"]},
       {
        SubsuperscriptBox["\[CapitalEpsilon]", 
         RowBox[{"v", "+", "1"}], "+"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], 
   TraditionalForm]], "InlineMath"]
}], "Notes",
 CellChangeTimes->{{3.598014351915989*^9, 3.5980144966238437`*^9}, 
   3.5980146917865863`*^9, {3.5980149668658695`*^9, 3.598014983557899*^9}},
 CellID->462728753],

Cell[TextData[{
 "See ",
 ButtonBox["here",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/PhaseMv#583000072"],
 " or ",
 ButtonBox["here",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/PhaseMv#148884605"],
 " for a full discussion of this notation."
}], "Notes",
 CellChangeTimes->{{3.5980147680863204`*^9, 3.5980148383030434`*^9}},
 CellID->567618496]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Interfacial Nonlinear Spectroscopy of Thin Film \
Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Interfacial Nonlinear Spectroscopy \
of Thin Film Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
   3.6000111315791473`*^9, 3.6000111315981483`*^9}, {3.6235461474439697`*^9, 
   3.623546156398385*^9}, 3.6235463655323524`*^9, {3.623546417340043*^9, 
   3.6235464174960437`*^9}},
 CellID->40297743]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Simulated vibrational sum frequency generation from a multilayer thin film \
system with two active interfaces,\" J. Chem. Phys. 138, 154708 (2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1063/1.4799921"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597766065189121*^9, 3.597766067909125*^9}, {
  3.597766108593182*^9, 3.597766108653182*^9}},
 CellID->134447493]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesSIIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598013097876186*^9, 3.5980131007153907`*^9}, {
  3.598224753897093*^9, 3.59822476965312*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Build the system transfer matrix for a single thin film layer system:\
\>", "ExampleText",
 CellChangeTimes->{{3.5980107355616064`*^9, 3.598010763813256*^9}},
 CellID->365753876],

Cell[BoxData[
 RowBox[{"<<", "TransferMatrixFormalism`"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->484470418],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", ",", "\[Theta]", ",", 
     RowBox[{"\[Theta]in", "=", 
      RowBox[{"60.", "\[Degree]"}]}], ",", 
     RowBox[{"d", "=", "200"}], " ", 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"\[Lambda]", "=", "800"}]}], " ", 
    RowBox[{"(*", "nm", "*)"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1.5", ",", "3"}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Theta]", "=", 
     RowBox[{"RefractionAngle", "[", 
      RowBox[{"\[Theta]in", ",", "1", ",", "n"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"RefractionMv", "[", 
       RowBox[{"\"\<p\>\"", ",", 
        RowBox[{"\[Theta]", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"\[Theta]", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"n", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"n", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ".", 
      RowBox[{"PhaseMv", "[", 
       RowBox[{
        FractionBox["1", "\[Lambda]"], ",", 
        RowBox[{"\[Theta]", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"n", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "d"}], "]"}], ".", 
      RowBox[{"RefractionMv", "[", 
       RowBox[{"\"\<p\>\"", ",", 
        RowBox[{"\[Theta]", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"\[Theta]", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{"n", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"n", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "\[Equal]", 
     "\[IndentingNewLine]", 
     RowBox[{"AbelesS", "[", 
      RowBox[{"\"\<p\>\"", ",", 
       FractionBox["1", "\[Lambda]"], ",", "\[Theta]in", ",", 
       RowBox[{"n", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"n", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", "d"}], "}"}], "}"}], ",", 
       RowBox[{"n", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.598010727043991*^9, 3.5980107277459927`*^9}, {
   3.598010767151662*^9, 3.5980110793012104`*^9}, 3.5980116656352406`*^9, 
   3.598011758175603*^9, {3.5980118544131727`*^9, 3.5980118598107815`*^9}, {
   3.5980121031020093`*^9, 3.5980121043188114`*^9}, {3.5980123342183075`*^9, 
   3.5980123502252235`*^9}},
 CellLabel->"In[1]:=",
 CellID->553032183],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.623547075143199*^9},
 CellLabel->"Out[1]=",
 CellID->26622489]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{134, Automatic}, {35, Automatic}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[16593, 569, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 18522, 639}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 148, 3, 31, "Categorization",
 CellID->178896808],
Cell[1210, 50, 93, 2, 31, "Categorization",
 CellID->434562148],
Cell[1306, 54, 143, 3, 31, "Categorization",
 CellID->67324167]
}, Open  ]],
Cell[CellGroupData[{
Cell[1486, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1544, 65, 124, 2, 17, "Keywords",
 CellID->1164421360],
Cell[1671, 69, 119, 2, 17, "Keywords",
 CellID->40730729],
Cell[1793, 73, 120, 2, 17, "Keywords",
 CellID->97249225],
Cell[1916, 77, 116, 2, 17, "Keywords",
 CellID->723475087]
}, Open  ]],
Cell[CellGroupData[{
Cell[2069, 84, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2137, 87, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[2234, 91, 82, 2, 70, "Template",
 CellID->158391909],
Cell[2319, 95, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[2403, 99, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2522, 106, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2578, 109, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2644, 113, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2716, 117, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2783, 121, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2855, 125, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2919, 129, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2983, 133, 63, 2, 70, "Details",
 CellID->732958810],
Cell[3049, 137, 78, 2, 70, "Details",
 CellID->222905350],
Cell[3130, 141, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3234, 148, 50, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[3287, 151, 1232, 40, 87, "Usage"],
Cell[4522, 193, 919, 27, 39, "Notes",
 CellID->1067943069],
Cell[5444, 222, 1973, 58, 41, "Notes",
 CellID->499000569],
Cell[7420, 282, 2315, 64, 66, "Notes",
 CellID->462728753],
Cell[9738, 348, 448, 14, 23, "Notes",
 CellID->567618496]
}, Open  ]],
Cell[CellGroupData[{
Cell[10223, 367, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[10283, 370, 504, 10, 16, "Tutorials",
 CellID->40297743]
}, Open  ]],
Cell[CellGroupData[{
Cell[10824, 385, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[10910, 388, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[11005, 394, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[11073, 397, 444, 8, 29, "RelatedLinks",
 CellID->148884605],
Cell[11520, 407, 476, 8, 29, "RelatedLinks",
 CellID->134447493]
}, Open  ]],
Cell[CellGroupData[{
Cell[12033, 420, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[12091, 423, 851, 27, 19, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[12979, 455, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[13039, 458, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[13122, 464, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[13481, 477, 188, 4, 20, "ExampleText",
 CellID->365753876],
Cell[13672, 483, 111, 3, 27, "Input",
 CellID->484470418],
Cell[CellGroupData[{
Cell[13808, 490, 2618, 68, 186, "Input",
 CellID->553032183],
Cell[16429, 560, 115, 3, 25, "Output",
 CellID->26622489]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16593, 569, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[16696, 573, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[16824, 578, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[16997, 585, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[17127, 590, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[17260, 595, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[17405, 601, 131, 3, 18, "ExampleSection",
 CellID->258228157],
Cell[17539, 606, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[17684, 611, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[17822, 616, 140, 3, 18, "ExampleSection",
 CellID->1653164318],
Cell[17965, 621, 132, 3, 18, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
